procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos tornar o TClientDataSet somente leitura
  ClientDataSet1.ReadOnly := True;
end;

procedure TForm3.Button3Click(Sender: TObject);
begin
  // vamos verificar se o TClientDataSet é somente leitura
  if ClientDataSet1.ReadOnly then
    ShowMessage('O ClientDataSet é somente leitura')
  else
    ShowMessage('O ClientDataSet NÃO é somente leitura')
end;

#include <stdio.h>
#include <stdlib.h>

// uma função que escreve uma frase
// na tela
void escrever(void){
  printf("Sou uma funcao");
}

int main(int argc, char *argv[]){
  // efetua uma chamada à função escrever
  escrever();

  puts("\n\n");
  system("PAUSE");
  return 0;
}

void escrever(){
  printf("Sou uma funcao");
}

#include <stdio.h>
#include <stdlib.h>

// uma função que escreve uma frase
// na tela
void escrever(){
  char nome[] = "Osmar J. Silva";
  printf("Ola, meu nome e %s\n", nome);
}

int main(int argc, char *argv[]){
  printf("Sou main. Vou chamar a funcao escrever()\n");

  // efetua uma chamada à função escrever
  escrever();

  // efetua outra chamada à função escrever
  escrever();

  printf("Acabei de efetuar chamadas a funcao escrever()");

  puts("\n\n");
  system("PAUSE");
  return 0;
}

#include <stdio.h>
#include <stdlib.h>
#include <locale.h>

// função que recebe dois inteiros e retorna
// o Máximo Divisor Comum dos dois 
int MDC(int a, int b){
  int resto;
 
  while(b != 0){
    resto = a % b;
    a = b;
    b = resto;
  }
 
  return a;
} 
 
int main(int argc, char *argv[]){
  int x, y;
	
  setlocale(LC_ALL,""); // para acentos do português
	
  printf("Este programa permite calcular o MDC\n");
  printf("Informe o primeiro número: ");
  scanf("%d", &x);
  printf("Informe o segundo número: ");
  scanf("%d", &y);
 
  printf("O Máximo Divisor Comum de %d e %d é %d",
    x, y, MDC(x, y));
  
  printf("\n\n");
  system("pause");
  return 0;
}

java.lang.Object
 javafx.scene.Node
  javafx.scene.Parent
   javafx.scene.layout.Region
    javafx.scene.control.Control
     javafx.scene.control.TextInputControl
      javafx.scene.control.TextField

package estudosjavafx;
   
import javafx.application.Application;
import javafx.geometry.Insets;
import javafx.scene.Scene;
import javafx.scene.control.Button;
import javafx.scene.control.Label;
import javafx.scene.control.TextField;
import javafx.scene.layout.HBox;
import javafx.stage.Stage;
   
public class EstudosJavaFX extends Application {
  public static void main(String[] args){
    launch(args);
  }
   
  @Override
  public void start(Stage primaryStage){
    // vamos criar um rótulo, um botão e uma
    // caixa de texto
    Label label = new Label("Seu nome:");
    // vamos deixar o texto do Label em negrito
    label.setStyle("-fx-font-weight: bold;");
    // vamos aumentar o tamanho da fonte
    label.setStyle("-fx-font-size: 150%;");
    TextField nomeTxt = new TextField();
    Button btn = new Button("Enviar");
    
    // agora criamos um laytou HBox e colocamos
    // os componentes nele
    HBox hBox = new HBox();
    hBox.getChildren().add(label);
    hBox.getChildren().add(nomeTxt);
    hBox.getChildren().add(btn);
       
    // vamos definir o espaço interno do HBox
    hBox.setPadding(new Insets(10, 10, 10, 10));
    
    // vamos definir o espaço entre os 
    // componentes do HBox
    hBox.setSpacing(10);
      
    // criamos a cena e fornecemos o layout a ela
    // e definimos a largura e altura da cena
    Scene scene = new Scene(hBox, 400, 300);
    
    // adicionamos a cena ao palco principal
    primaryStage.setScene(scene);
    // e mostramos o palco
    primaryStage.show();
  }
}

Informe o primeiro número: 8
Informe o segundo número: 3
A soma dos dois números é: 11

import System.IO
import Text.Printf

-- declaração da função somar
somar :: Int->Int->Int

-- definição da função somar
-- recebe dois inteiros e retorna a
-- soma como um inteiro
somar a b = a + b

-- função principal do programa
main = do
  -- vamos desabilitar o buffer de quebra de linha 
  hSetBuffering stdout NoBuffering
  
  -- vamos pedir para o usuário informar dois números
  -- inteiros
  putStr "Informe o primeiro número: "
  n1 <- readLn::IO Int
  putStr "Informe o segundo número: "
  n2 <- readLn::IO Int
  
  -- agora vamos chamar a função somar e obter
  -- a soma dos dois números fornecidos
  let soma = somar n1 n2
  
  -- agora mostramos o resultado
  printf "A soma dos dois números é: %d" soma